home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -in_the_mag- / cologne / mpegagui / mpega.gc < prev    next >
Text File  |  1997-12-06  |  25KB  |  1,035 lines
  1. G4C
  2.  
  3. ; Hi there!
  4. ; 
  5. ; This is a Gui4CLI Script. Once runned, it pops up a GUI (Graphical
  6. ; User Interface, in short: a window with buttons) which can be used
  7. ; as a frontend for MPEGA.
  8. ; 
  9. ; This script was developed for Gui4CLI version 3+ :
  10. ; > Author   : dck@prometheus.hol.gr (D. Keletsekis)
  11. ; > Type     : Dev/Gui
  12. ; > Version  : 3.1
  13. ; > Requires : WB 2.04 or higher
  14. ; 
  15. ; This GUI was developed for MPEGA version 2.9 :
  16. ; > MPEGA V2.9 [68020/30] (C)1995-1997 Stéphane TAVENARD
  17. ; > Release date: May 29 1997 (68020/30)
  18. ; > Email: tavenard@xiii.univ-angers.fr
  19. ; 
  20. ; Gui4CLI can be downloaded from AmiNet from the directory dev/gui.
  21. ; MPEGA can be downloaded from AmiNet from the directory mus/play.
  22. ; 
  23. ; If you don't like this script you are allowed to change it yourself.
  24. ; If you do so, I would like you to E-mail me your new version.
  25. ; If you change this script and redistribute it, you are not allowed
  26. ; to erase my copyright notice. Feel free to add your own notice.
  27. ; 
  28. ; This GUI was developed on a screen resolution of 640*495 pixels.
  29. ; I've tested it on a PAL 640*256 screen and didn't like the window
  30. ; sizes. If you want to run it on a 640*256 screen, you can change
  31. ; the default window sizes. How to do that is perfectly described in
  32. ; the Gui4CLI documentation (Gui4CLI.guide) which comes with the
  33. ; Gui4CLI package. I recommend reading the 'Important Topics! /
  34. ; Window Shortcuts' and the 'COMMANDS / WinBig' sections for that.
  35. ; 
  36. ; The MPEGA Executable definition is at line 61. Change it.
  37. ; You also might want to change the default paths the GUI uses.
  38. ; They are at lines 63 and 64 of this file.
  39. ; 
  40. ; There are some bugs in this GUI due to the nature of it: it uses
  41. ; the OS multitasking. If you want, you can crash it. Just hit some
  42. ; different buttons with a very short interval. If you think it's lame
  43. ; for that, go buy a faster Miggy...
  44. ; 
  45. ; 
  46. ; Copyright 1997 M. van Dillen
  47. ; E-mail: 1011071@ibk.fnt.hvu.nl
  48.  
  49.  
  50. WINBIG 1024 11 380 235 'MPEGA GUI v1.1 by Kozmic'
  51. WinType 11110001
  52. WinSmall -1 -1 365 190
  53.  
  54. ICON 180 20 :MPEGA.gc
  55. xArea 180 20 184 29 NONE
  56. GoSub MPEGA.gc about
  57.  
  58. xOnLoad
  59. version = 'MPEGA GUI v1.1'
  60. Extract MPEGA.gc GuiPath KozPath
  61. Exe = 'dh1:music/mpega/mpega'
  62. GoSub MPEGA.gc CheckExe
  63. defaultpath = 'MP3:'
  64. playlistpath = 'MP3:Playlists'
  65. header = '@MP3PLAYLIST@'
  66. stilte = 0
  67. warning = 1
  68. stilte = 1
  69. playing = 0
  70. files = 0
  71. inf = 0
  72. JoinFile $KozPath 'MPEGAGUI.options' opfile
  73. IfExists FILE $opfile
  74.    Copy $opfile 'ENV:.MPEGAGUI.options'
  75.    extra = $.MPEGAGUI.options
  76. ENDIF
  77. JoinFile $KozPath 'MP3Tool' getinfo
  78. JoinFile $KozPath 'TAGEdit.gc' tageditor
  79.  
  80. priority = 0
  81. prio2 = 1
  82. negprio = 0
  83. offset = 0
  84. volume = 128
  85. buffer = 20
  86. maxfreq = 22050
  87. repeat = 'Off'
  88. SetVar mf 'Off'
  89. SetVar wait 'On'
  90. Update MPEGA.gc 1 0        ; mono
  91. Update MPEGA.gc 2 1        ; freq div 2
  92. Update MPEGA.gc 3 1        ; quality
  93. SetGad MPEGA.gc 4 OFF        ; AHI Off
  94. ;SetGad MPEGA.gc 6 OFF        ; buffer disabled
  95. SetGad MPEGA.gc 7 OFF        ; max freq disabled
  96. SetGad MPEGA.gc 17 ON        ; Wait
  97. redraw MPEGA.gc
  98. GuiOpen MPEGA.gc
  99.  
  100. xOnClose
  101. GoSub MPEGA.gc cleanup
  102. GuiQuit Playlist.gc
  103. GuiQuit extra.gc
  104. GuiQuit Info.gc
  105. GuiQuit MPEGA.gc
  106.  
  107.  
  108. ;--- Misc ---
  109.  
  110. xOnKey #13
  111. GoSub MPEGA.gc stop
  112. GoSub MPEGA.gc play
  113.  
  114. xOnKey ' '
  115. GoSub MPEGA.gc stop
  116.  
  117. xOnKey #27
  118. GoSub MPEGA.gc cleanup
  119. GuiQuit Playlist.gc
  120. GuiQuit extra.gc
  121. GuiQuit Info.gc
  122. GuiQuit MPEGA.gc
  123.  
  124. xAppWindow Filenames
  125. ;alle icons verwerken
  126. IF $Filenames > ""
  127.    ;Listview input maken
  128.    files = 0
  129.    CLI 'Echo "" NOLINE > T:MPEGAGUI.temp'
  130.    WHILE $Filenames != ""
  131.       CutVar Filenames CUT WORD 1 eenfile
  132.       APPEND T:MPEGAGUI.temp $eenfile
  133.       IF $files = 0
  134.          Filename = $eenfile
  135.       ENDIF
  136.       CutVar Filenames CUT CHAR 1 space
  137.       IF $Filenames != ""
  138.          APPEND T:MPEGAGUI.temp \n
  139.       ENDIF   
  140.       files == $files + 1
  141.    ENDWHILE
  142.    IF $files > 1
  143.       ;Playlist window init en openen
  144.       GuiLoad Playlist.gc
  145.       LVUse Playlist.gc 1
  146.       LVChange T:MPEGAGUI.temp
  147.       GuiOpen Playlist.gc
  148.    ELSE
  149.       IFEXISTS Window Playlist.gc
  150.          GuiClose Playlist.gc
  151.       ENDIF
  152.    ENDIF
  153.    Update MPEGA.gc 5 'Current file: $Filename'
  154. ENDIF
  155. ;play it!
  156. GoSub MPEGA.gc stop
  157. GoSub MPEGA.gc play
  158.  
  159.  
  160. ;--- Left gadgets ---
  161.  
  162. XCYCLER 88 10 80 18   "_Mode" "mymode"
  163. gadid 1
  164. CStr Mono 0
  165. CStr Stereo 1
  166.  
  167. XCYCLER 88 30 80 18   "Freq _Div" freq
  168. gadid 2
  169. CStr 1 0
  170. CStr 2 1
  171. CStr 4 2
  172.  
  173. XCYCLER 88 50 80 18   "_Quality" "quality"
  174. gadid 3
  175. CStr Worst 0
  176. CStr Good 1
  177. CStr Best 2
  178.  
  179. XTEXTIN 88 74 80 18   "Buffer time" "buffer" "20" 10
  180. gadid 6
  181. IF $buffer = ""
  182.    buffer = "0"
  183.    update MPEGA.gc 6 $buffer
  184. ENDIF
  185. Update MPEGA.gc 5 'Waiting for buffer to be full will now be enabled'
  186.  
  187. xArea 8 74 78 18 NONE
  188. IF $buffer != 20
  189.    buffer = 20
  190.    Update MPEGA.gc 6 $buffer
  191.    Update MPEGA.gc 5 'Buffer reset to $buffer seconds'
  192. ENDIF
  193.  
  194. XTEXTIN 88 94 80 18   "Max Freq" "maxfreq" "22050" 10
  195. gadid 7
  196. Update MPEGA.gc 5 'Maximum decoding frequency will be $maxfreq Hz'
  197.  
  198. XTEXTIN 88 114 80 18   "Mode ID" "ahimode" "20004" 5
  199. gadid 4
  200. Update MPEGA.gc 5 'AHI will now be enabled'
  201.  
  202. XTEXTIN 88 134 80 18   "Stream start" "offset" "0" 10
  203. gadid 9
  204. IF $offset = ""
  205.    offset = "0"
  206.    update MPEGA.gc 9 $offset
  207. ENDIF
  208. Update MPEGA.gc 5 'Playing will start at offset $offset seconds'
  209.  
  210. xArea 8 134 78 18 NONE
  211. IF $offset != 0
  212.    offset = 0
  213.    Update MPEGA.gc 9 $offset
  214.    Update MPEGA.gc 5 'Stream start offset reset to $offset seconds'
  215. ENDIF
  216.  
  217. XHSLIDER 88 158 80 18   "_Volume" "volume" 0 256 128 "%ld"
  218. gadid 18
  219. IF $volume < 65
  220.    Update MPEGA.gc 5 'Volume will be $volume'
  221. ELSE
  222.    Update MPEGA.gc 5 'Volume will be boosted to $volume'
  223. ENDIF
  224.  
  225. xArea 8 158 78 18 NONE
  226. IF $volume != 128
  227.    volume = 128
  228.    Update MPEGA.gc 18 $volume
  229.    Update MPEGA.gc 5 'Volume reset to $volume'
  230. ENDIF
  231.  
  232.  
  233. ;--- Right gadgets ---
  234.  
  235. XCHECKBOX 200 74 26 18   "_Wait for buffer" "wait" "On" "Off" ON
  236. GadID 17
  237. GadTitle RIGHT
  238. IF $wait = "On"
  239.    setgad MPEGA.gc 6 ON
  240.    Update MPEGA.gc 5 'Enter seconds of playback buffer'
  241. ELSE
  242.    setgad MPEGA.gc 6 OFF
  243.    Update MPEGA.gc 5 'Waiting for buffer to be full will now be disabled'
  244. ENDIF
  245.  
  246. XCHECKBOX 200 94 26 18   "Ma_x freq" "mf" "On" "Off" OFF
  247. GadTitle RIGHT
  248. IF $mf = "On"
  249.    setgad MPEGA.gc 7 ON
  250.    setgad MPEGA.gc 2 OFF
  251.    Update MPEGA.gc 5 'Enter maximum playback frequency'
  252. ELSE
  253.    setgad MPEGA.gc 7 OFF
  254.    setgad MPEGA.gc 2 ON
  255.    Update MPEGA.gc 5 'Standard playback frequency will be used'
  256. ENDIF
  257.  
  258. XCHECKBOX 200 114 26 18   "_AHI" "ahi" "On" "Off" OFF
  259. GadTitle RIGHT
  260. IF $ahi = "On"
  261.    setgad MPEGA.gc 4 ON
  262.    Update MPEGA.gc 5 'Enter the AHI Audio mode ID in hex'
  263. ELSE
  264.    setgad MPEGA.gc 4 OFF
  265.    Update MPEGA.gc 5 'AHI will now be disabled'
  266. ENDIF
  267.  
  268. XCHECKBOX 200 134 26 18   "R_epeat song" "repeat" "On" "Off" OFF
  269. GadTitle RIGHT
  270. IF $repeat = "On"
  271.    Update MPEGA.gc 5 'Song will now be repeated'
  272. ELSE
  273.    Update MPEGA.gc 5 "Song won't be repeated"
  274. ENDIF
  275.  
  276. XHSLIDER 266 158 80 18   "P_riority" "priority" -30 30 0 "%ld"
  277. IF $priority < 31
  278.    Update MPEGA.gc 5 'Process priority of MpegA will be $priority'
  279.    negprio = 0
  280. ELSE
  281.    prio2 = 65536
  282.    COUNTER prio2 DEC $priority
  283.    Update MPEGA.gc 5 'Process priority of MpegA will be -$prio2'
  284.    negprio = 1
  285. ENDIF
  286.  
  287.  
  288. ;--- Bottom gadgets ---
  289.  
  290. XBUTTON 5 182 89 20 "P_laylist..."
  291. GoSub Playlist.gc load
  292. IF $files > 1
  293.    ;Playlist window init en openen
  294.    GuiLoad Playlist.gc
  295.    GuiOpen Playlist.gc
  296. ELSE
  297.    IFEXISTS Window Playlist.gc
  298.       GuiClose Playlist.gc
  299.    ENDIF
  300. ENDIF
  301.  
  302. XBUTTON 98 182 89 20   "_Files..."
  303. Set FilePattern #?MP3#?
  304. GoSub MPEGA.gc setwait
  305. ReqFile -1 -1 300 200 "Choose MPEG Audio file(s)" MULTI "Filenames" $defaultpath
  306. GoSub MPEGA.gc setresume
  307.  
  308. IF $Filenames > ""
  309.    ;Listview input maken
  310.    files = 0
  311.    CLI 'Echo "" NOLINE > T:MPEGAGUI.temp'
  312.    WHILE $Filenames != ""
  313.       CutVar Filenames CUT WORD 1 eenfile
  314.       APPEND T:MPEGAGUI.temp $eenfile
  315.       IF $files = 0
  316.          Filename = $eenfile
  317.       ENDIF
  318.       CutVar Filenames CUT CHAR 1 space
  319.       IF $Filenames != ""
  320.          APPEND T:MPEGAGUI.temp \n
  321.       ENDIF   
  322.       files == $files + 1
  323.    ENDWHILE
  324.    IF $files > 1
  325.       ;Playlist window init en openen
  326.       GuiLoad Playlist.gc
  327.       LVUse Playlist.gc 1
  328.       LVChange T:MPEGAGUI.temp
  329.       GuiOpen Playlist.gc
  330.    ELSE
  331.       IFEXISTS Window Playlist.gc
  332.          GuiClose Playlist.gc
  333.       ENDIF
  334.    ENDIF
  335.    Update MPEGA.gc 5 'Current file: $Filename'
  336. ENDIF
  337.  
  338.  
  339. XBUTTON 191 182 89 20   "_PLAY!"
  340. GoSub MPEGA.gc stop
  341. GoSub MPEGA.gc play
  342.  
  343. XBUTTON 284 182 90 20   "_Stop playing"
  344. GoSub MPEGA.gc stop
  345.  
  346. TEXT 5 210 370 18   "Welcome to Kozmic's MPEGA GUI                              " 60 BOX
  347. gadid 5
  348.  
  349.  
  350.  
  351. ;--- Routines ---
  352.  
  353.  
  354. XROUTINE play
  355.  
  356. stilte = 0
  357.  
  358. ;freq div bepalen
  359. DOCASE $freq
  360.    CASE = 0
  361.       SetVar f '1'
  362.    BREAK
  363.    CASE = 1
  364.       SetVar f '2'
  365.    BREAK
  366.    CASE = 2
  367.       SetVar f '4'
  368.    BREAK
  369. ENDCASE
  370.  
  371. ;neg of pos priority bepalen
  372. SetVar prioarg '-p'
  373. IF $negprio = 1
  374.    AppVar prioarg '-$prio2'
  375. ELSE
  376.    AppVar prioarg '$priority'
  377. ENDIF   
  378.  
  379. ;controleren op een hoge priority
  380. warning = 1
  381. IF $priority > 4
  382. AND $negprio = 0
  383. GoSub MPEGA.gc setwait
  384.    EZReq 'Warning! A high priority may lockup your system!' Continue|Cancel warning
  385. GoSub MPEGA.gc setresume
  386. ENDIF
  387.  
  388. ;mode bepalen
  389. SetVar modearg '-n'            ;geen zooi naar stdout
  390. IF $mymode = 0
  391.    AppVar modearg ' -m'
  392. ENDIF
  393.  
  394. ;waardes converteren naar milliseconden
  395. SetVar offs '-S'
  396. AppVar offs '$offset'
  397. AppVar offs '000'
  398. SetVar buff '-t'
  399. AppVar buff '$buffer'
  400. AppVar buff '000'
  401.  
  402. ;volume, wait en maxfreq
  403. SetVar volwaitmf '-v$volume'
  404. IF $wait = 'On'
  405.    AppVar volwaitmf ' $buff -w'
  406. ENDIF
  407. IF $mf = 'On'
  408.    AppVar volwaitmf ' -F$maxfreq'
  409. ENDIF
  410. IF $extra > ""
  411.    AppVar volwaitmf ' $extra'
  412. ENDIF
  413.  
  414. ;play it!
  415. IF $warning = 1
  416.    IF $.MPEGAGUI.inf != $Filename        ;are we playing the same file? (ie. already did a TAG info?)
  417.    AND $inf = 1                    ;do we realy want the slowdown?
  418.       CLI '$getinfo $Filename LFORMAT "%f\\n\\-\\nTitle:   %t\\nArtist:  %a\\nAlbum:   %u\\nGenre:   %g\\nYear:    %y\\nComment: %c\\nBPS:     %b\\nLength:  %d (%e seconds)" >ENV:.MPEGAGUI.inf'
  419.       IFEXISTS Window Info.gc
  420.          ;bug?
  421.       ELSE
  422.          GuiOpen Info.gc
  423.       ENDIF
  424.       LVUse Info.gc 1
  425.       LVChange ENV:.MPEGAGUI.inf
  426.       LVGo last
  427.       LVDel -1
  428.    ENDIF
  429.    LAUNCH 1 '$Exe -d$f -q$quality $modearg $volwaitmf $prioarg $offs $Filename >NIL:'    ;quite important line..
  430.    Update MPEGA.gc 5 'Now playing: $Filename'
  431.    playing == $playing + 1
  432.    nowplaying = $Filename
  433. ELSE
  434.    Update MPEGA.gc 5 'Canceled'        ;cancel in priority warning gekozen
  435. ENDIF
  436.  
  437.  
  438. XOnReturn 1
  439. IF $playing = 1
  440. AND $stilte = 0
  441.    LVUse Playlist.gc 1
  442.    IF $files > 1
  443.       IF $repeat = "Off"
  444.          IF $$lv.rec = $nowplaying        ;geen andere manually chosen
  445.             top == $files - 1
  446.             IF $$lv.line != $top        ;niet? -> next
  447.                LVGo next
  448.             ELSE
  449.                LVGo first
  450.             ENDIF
  451.          ENDIF
  452.       ENDIF
  453.       Filename = $$lv.rec        ;else choose users wish
  454.       GoSub MPEGA.gc play
  455.    ELSE
  456.       IF $repeat = "On"
  457.          GoSub MPEGA.gc play
  458.       ELSE
  459.          Update MPEGA.gc 5 'Finished'
  460.       ENDIF
  461.    ENDIF
  462. ENDIF
  463. playing == $playing - 1
  464.  
  465.  
  466. xOnFail
  467. playing = 0
  468. stilte = 1
  469. Update MPEGA.gc 5 'External error! Returncode: $$RETCODE'
  470.  
  471.  
  472. XROUTINE stop
  473. IF $playing > 0
  474.    CLI 'break `status com "$Exe"` >NIL:'
  475.    Update MPEGA.gc 5 'Playing stopped'
  476.    stilte = 1
  477. ENDIF
  478.  
  479.  
  480. XROUTINE setwait
  481. GuiWindow MPEGA.gc WAIT
  482. GuiWindow Playlist.gc WAIT
  483. GuiWindow extra.gc WAIT
  484. GuiWindow Info.gc WAIT
  485.  
  486.  
  487. XROUTINE setresume
  488. GuiWindow MPEGA.gc RESUME
  489. GuiWindow Playlist.gc RESUME
  490. GuiWindow extra.gc RESUME
  491. GuiWindow Info.gc RESUME
  492.  
  493.  
  494. XROUTINE cleanup
  495. Delete T:MPEGAGUI.temp
  496. Delete ENV:.MPEGAGUI.inf
  497. Delete ENV:.MPEGAGUI.options
  498. Delete ENV:.MPEGAGUI.header
  499. Delete ENV:.MPEGAGUI.filesize
  500. IF $playing > 0
  501.    EZReq 'MPEGA is still running. What shall I do with it?' "Stop it!|Keep it running" stopit
  502.    IF $stopit = 1
  503.       GoSub MPEGA.gc stop        ;let's hope MpegA hasn't finished by itself by now..
  504.    ENDIF
  505. ENDIF
  506.  
  507.  
  508. XROUTINE about
  509. GoSub MPEGA.gc setwait
  510. EZReq "$version \n\nMPEGAGUI is a frontend for MPEGA,\nan MPEG Audio layer 1, 2 and 3 player.\n\nIt is a Gui4CLI script so you need to get\nthe Gui4CLI package e.g. from AmiNet to get\nit running, but you already knew that unless\nyou're reading this script instead of\nrunning it..\n\nIf you don't like it, change it yourself :-)\n\nCopyright 1997 M. van Dillen (1011071@ibk.fnt.hvu.nl)" Cool! egwel
  511. GoSub MPEGA.gc setresume
  512.  
  513.  
  514. XROUTINE CheckExe
  515. IfExists FILE $Exe
  516.    ; bug
  517. Else
  518.    EZReq "MPEGA Executable not found!\nCurrent definition is:\n'$Exe' \n\nYou have to change the 'Exe' definition in the\nfile 'MPEGA.gc' on line number 61\nwith a texteditor.\n\nFor now, you can locate the executable yourself\n(version 2.9+), edit the file 'MPEGA.gc',\nor exit this marvelous GUI.." "Locate MPEGA|Ed MPEGA.gc|Exit" locate
  519.    DOCASE $locate
  520.    CASE = 1
  521.       Set FilePattern #?MPEGA#?
  522.       ReqFile -1 -1 300 200 "Locate the MPEGA Executable" LOAD "Exe" $defaultpath
  523.       BREAK
  524.    CASE = 2
  525.       JoinFile $KozPath 'MPEGA.gc' ThisSux
  526.       CLI 'C:Ed $ThisSux'
  527.       EZReq "Please restart MPEGA.gc now." "Exit" egwel
  528.       GuiQuit Playlist.gc
  529.       GuiQuit extra.gc
  530.       GuiQuit MPEGA.gc
  531.       Stop
  532.       BREAK
  533.    CASE = 0
  534.       GuiQuit Playlist.gc
  535.       GuiQuit extra.gc
  536.       GuiQuit MPEGA.gc
  537.       Stop
  538.       BREAK
  539.    ENDCASE
  540. EndIf
  541.  
  542.  
  543. ;--- Menu's ---
  544.  
  545. xMenu Project "Load Playlist..." "" "L"
  546. GoSub Playlist.gc load
  547. IF $files > 1
  548.    ;Playlist window init en openen
  549.    GuiLoad Playlist.gc
  550.    GuiOpen Playlist.gc
  551. ELSE
  552.    IFEXISTS Window Playlist.gc
  553.       GuiClose Playlist.gc
  554.    ENDIF
  555. ENDIF
  556.  
  557. xMenu Project Play "" "P"
  558. GoSub MPEGA.gc stop
  559. GoSub MPEGA.gc play
  560.  
  561. xMenu Project Stop "" "S"
  562. stilte = 1
  563. GoSub MPEGA.gc stop
  564.  
  565. xMenu Project BARLABEL "" ""
  566.  
  567. xMenu Project "About" "#:MPEGA.gc" ""
  568. GoSub MPEGA.gc about
  569.  
  570. xMenu Project Quit "" "Q"
  571. GuiClose MPEGA.gc
  572.  
  573. xMenu Windows "Extra options..." "" "E"
  574. Update extra.gc 1 $extra
  575. GuiOpen extra.gc
  576.  
  577. xMenu Windows "Toggle Playlist" "" ""
  578. IFEXISTS Window Playlist.gc
  579.    GuiClose Playlist.gc
  580. ELSE
  581.    GuiOpen Playlist.gc
  582. ENDIF
  583.  
  584. xMenu Windows "Toggle MP3 Info" "" "I"
  585. IF $inf = 1
  586.    inf = 0
  587.    GuiClose Info.gc
  588.    Update MPEGA.gc 5 'No info will be searched'
  589. ELSE
  590.    inf = 1
  591.    GuiOpen Info.gc
  592.    Update MPEGA.gc 5 'Songinfo will be searched at playtime'
  593. ENDIF
  594.  
  595. xMenu Misc "Show status" "" ""
  596. IF $playing > 0
  597.    CLI 'List lformat %l $nowplaying > ENV:.MPEGAGUI.filesize'
  598.    Update MPEGA.gc 5 'Now playing: $nowplaying ($.MPEGAGUI.filesize\)'
  599.    Delete ENV:.MPEGAGUI.filesize
  600. ELSE
  601.    Update MPEGA.gc 5 'Idle'
  602. ENDIF
  603.  
  604. xMenu Misc "Run TAGEditor" "" ""
  605. GuiLoad $tageditor
  606.  
  607. ;================================================================================================
  608. ;================================================================================================
  609. ;================================================================================================
  610.  
  611. NEWFILE Playlist.gc
  612.  
  613. WINBIG 1024 267 380 200 'MPEGA GUI Playlist'
  614. WinType 11110001
  615. WinSmall -1 -1 158 100
  616.  
  617. xAppWindow Filenames
  618. IF $Filenames > ""
  619.    ;Listview input maken
  620.    IfExists FILE T:MPEGAGUI.temp
  621.       CLI 'Echo "" >> T:MPEGAGUI.temp'            ;return plakken
  622.    ELSE
  623.       CLI 'Echo "" NOLINE > T:MPEGAGUI.temp'        ;file aanmaken
  624.       files = 0
  625.    ENDIF
  626.    WHILE $Filenames != ""
  627.       CutVar Filenames CUT WORD 1 eenfile
  628.       APPEND T:MPEGAGUI.temp $eenfile
  629.       IF $files = 0
  630.          Filename = $eenfile
  631.       ENDIF
  632.       CutVar Filenames CUT CHAR 1 space
  633.       IF $Filenames != ""
  634.          APPEND T:MPEGAGUI.temp \n
  635.       ENDIF   
  636.       files == $files + 1
  637.    ENDWHILE
  638.    ;Playlist window init en openen
  639.    GuiLoad Playlist.gc
  640.    LVUse Playlist.gc 1
  641.    LVChange T:MPEGAGUI.temp
  642.    GuiOpen Playlist.gc
  643.    Update MPEGA.gc 5 'Current file: $Filename'
  644. ENDIF
  645.  
  646.  
  647. XListView 0 26 -1 174 "" LVFilename T:MPEGAGUI.temp 0 TXT
  648. gadid 1
  649. IF $$lv.rec != 'No Data'
  650.    Filename = $LVFilename
  651.    IF $playing > 0
  652.       Update MPEGA.gc 5 'Next file: $Filename'
  653.    ELSE
  654.       Update MPEGA.gc 5 'Current file: $Filename'
  655.    ENDIF
  656. ENDIF
  657.  
  658. XButton 0 0 76 13 "I"
  659. GadFont gc.font 12 000
  660. LVUse Playlist.gc 1
  661. LVGo first
  662. Filename = $$lv.rec
  663. Update MPEGA.gc 5 'Current file: $Filename'
  664.  
  665. XButton 76 0 76 13 "G"
  666. GadFont gc.font 12 000
  667. LVUse Playlist.gc 1
  668. IF $$lv.line != 0
  669.    LVGo prev
  670.    Filename = $$lv.rec
  671.    Update MPEGA.gc 5 'Current file: $Filename'
  672. ENDIF
  673. GoSub MPEGA.gc stop
  674. GoSub MPEGA.gc play
  675.  
  676. XButton 152 0 76 13 "Sh_uffle"
  677. LVUse Playlist.gc 1
  678. tel = $files
  679. JoinFile $KozPath 'Random' copyarg
  680. Copy $copyarg T:
  681. WHILE $tel > 0
  682.    CLI 'T:Random $tel > env:.MPEGAGUI.random'
  683.    LVGo #$.MPEGAGUI.random
  684.    vorige = $$lv.line
  685.    LVAdd $$lv.rec
  686.    LVGo #$vorige
  687.    LVDel -1
  688.    tel == $tel - 1
  689. ENDWHILE
  690. Delete T:Random
  691. Delete env:.MPEGAGUI.random
  692. LVGo first
  693. Filename = $$lv.rec
  694. Update MPEGA.gc 5 'Current file: $Filename'
  695.  
  696.  
  697. XButton 228 0 76 13 "g"
  698. GadFont gc.font 12 000
  699. LVUse Playlist.gc 1
  700. top == $files - 1
  701. IF $$lv.line != $top
  702.    LVGo next
  703.    Filename = $$lv.rec
  704.    Update MPEGA.gc 5 'Current file: $Filename'
  705. ENDIF
  706. GoSub MPEGA.gc stop
  707. GoSub MPEGA.gc play
  708.  
  709. XButton 304 0 76 13 "i"
  710. GadFont gc.font 12 000
  711. LVUse Playlist.gc 1
  712. LVGo last
  713. Filename = $$lv.rec
  714. Update MPEGA.gc 5 'Current file: $Filename'
  715.  
  716.  
  717. ;--- 2e regel
  718.  
  719. XButton 0 13 76 13 "_Save"
  720. Set FilePattern #?
  721. GoSub MPEGA.gc setwait
  722. playlistfile = ""
  723. ReqFile -1 -1 300 200 "Save Playlist to.." SAVE "playlistfile" $playlistpath
  724. GoSub MPEGA.gc setresume
  725. IF $playlistfile > ""
  726.    IfExists FILE $playlistfile
  727.       EZReq "The file '$playlistfile' already exists!" Replace|Cancel replace
  728.       IF $replace = 1
  729.          CLI 'Echo $header > T:MPEGAGUI.header'
  730.          LVSave T:MPEGAGUI.temp
  731.          CLI 'Type T:MPEGAGUI.header T:MPEGAGUI.temp > $playlistfile'
  732.       ENDIF
  733.    ELSE
  734.       CLI 'Echo $header > T:MPEGAGUI.header'
  735.       LVSave T:MPEGAGUI.temp
  736.       CLI 'Type T:MPEGAGUI.header T:MPEGAGUI.temp > $playlistfile'
  737.    ENDIF
  738. ENDIF
  739.  
  740. XButton 76 13 76 13 "_Load"
  741. GoSub Playlist.gc load
  742.  
  743. XButton 152 13 76 13 "_Add"
  744. Set FilePattern #?MP3#?
  745. GoSub MPEGA.gc setwait
  746. ReqFile -1 -1 300 200 "Choose MPEG Audio file(s)" MULTI "Filenames" $defaultpath
  747. GoSub MPEGA.gc setresume
  748. IF $Filenames > ""
  749.    ;Listview input maken
  750.    IfExists FILE T:MPEGAGUI.temp
  751.       CLI 'Echo "" >> T:MPEGAGUI.temp'            ;return plakken
  752.    ELSE
  753.       CLI 'Echo "" NOLINE > T:MPEGAGUI.temp'        ;anders de file aanmaken
  754.       files = 0
  755.    ENDIF
  756.    WHILE $Filenames != ""
  757.       CutVar Filenames CUT WORD 1 eenfile
  758.       APPEND T:MPEGAGUI.temp $eenfile
  759.       IF $files = 0
  760.          Filename = $eenfile
  761.       ENDIF
  762.       CutVar Filenames CUT CHAR 1 space
  763.       IF $Filenames != ""
  764.          APPEND T:MPEGAGUI.temp \n
  765.       ENDIF   
  766.       files == $files + 1
  767.    ENDWHILE
  768.    IF $files > 1
  769.       ;Playlist window init en openen
  770.       GuiLoad Playlist.gc
  771.       LVUse Playlist.gc 1
  772.       LVChange T:MPEGAGUI.temp
  773.       GuiOpen Playlist.gc
  774.    ELSE
  775.       IFEXISTS Window Playlist.gc
  776.          GuiClose Playlist.gc
  777.       ENDIF
  778.    ENDIF
  779.    Update MPEGA.gc 5 'Current file: $Filename'
  780. ENDIF
  781.  
  782. XButton 228 13 76 13 "_Del"
  783. LVUse Playlist.gc 1
  784. IF $files > 0
  785.    LVDel -1
  786.    files == $files - 1
  787.    top == $files - 1
  788.    IF $$lv.line != $top
  789.    AND $$lv.line != 0
  790.       LVGo next
  791.    ENDIF
  792.    Filename = $$lv.rec
  793.    Update MPEGA.gc 5 'Next file: $Filename'
  794.    LVSave T:MPEGAGUI.temp
  795. ELSE
  796.    Update MPEGA.gc 5 'And.. that was the last one :-)'
  797. ENDIF
  798.  
  799. XButton 304 13 76 13 "_Clear"
  800. LVUse Playlist.gc 1
  801. LVClear
  802. files = 0
  803. IFEXISTS FILE T:MPEGAGUI.temp
  804.    Delete T:MPEGAGUI.temp
  805. ENDIF
  806.  
  807.  
  808. ;--- Routines ---
  809.  
  810. XROUTINE load
  811. Set FilePattern #?
  812. GoSub MPEGA.gc setwait
  813. ReqFile -1 -1 300 200 "Choose a Playlist file" LOAD "playlistfile" $playlistpath
  814. GoSub MPEGA.gc setresume
  815. IF $playlistfile F= $defaultpath
  816. ; bug
  817. ELSE
  818.    IF $playlistfile H= $header
  819.       LVUse Playlist.gc 1
  820.       LVChange $playlistfile
  821.       ;laatste weghalen als ie leeg is (return achter laatste record)
  822.       LVGo last
  823.       IF $$lv.rec = ""
  824.          LVDel -1
  825.       ENDIF
  826.       ;eerste weghalen (header)
  827.       LVGo first
  828.       LVDel -1
  829.       Filename = $$lv.rec
  830.       Update MPEGA.gc 5 'Current file: $Filename'
  831.       files = $$lv.total
  832.       ;opslaan zonder header en return
  833.       LVSave T:MPEGAGUI.temp
  834.    ELSE
  835.       GoSub MPEGA.gc setwait
  836.       EZReq "This is not an MPEGAGUI Playlist file!" "You're right. sorry.|Oh yes it is!" joke
  837.       IF $joke = 0
  838.          EZReq "No way! :-)" Oki.. joke
  839.       ENDIF
  840.       GoSub MPEGA.gc setresume
  841.    ENDIF
  842. ENDIF
  843.  
  844.  
  845. ;--- Menu's ---
  846.  
  847. xMenu Project "Load Playlist..." "" "L"
  848. GoSub Playlist.gc load
  849. IF $files > 1
  850.    ;Playlist window init en openen
  851.    GuiLoad Playlist.gc
  852.    GuiOpen Playlist.gc
  853. ELSE
  854.    IFEXISTS Window Playlist.gc
  855.       GuiClose Playlist.gc
  856.    ENDIF
  857. ENDIF
  858.  
  859. xMenu Project Play "" "P"
  860. GoSub MPEGA.gc stop
  861. GoSub MPEGA.gc play
  862.  
  863. xMenu Project Stop "" "S"
  864. stilte = 1
  865. GoSub MPEGA.gc stop
  866.  
  867. xMenu Project BARLABEL "" ""
  868.  
  869. xMenu Project "About" "#:MPEGA.gc" ""
  870. GoSub MPEGA.gc about
  871.  
  872. xMenu Project Quit "" "Q"
  873. GuiClose MPEGA.gc
  874.  
  875. xMenu Windows "Extra options..." "" "E"
  876. Update extra.gc 1 $extra
  877. GuiOpen extra.gc
  878.  
  879. xMenu Windows "Toggle Playlist" "" ""
  880. GuiClose Playlist.gc
  881.  
  882. xMenu Windows "Toggle MP3 Info" "" "I"
  883. IF $inf = 1
  884.    inf = 0
  885.    GuiClose Info.gc
  886.    Update MPEGA.gc 5 'No info will be searched'
  887. ELSE
  888.    inf = 1
  889.    GuiOpen Info.gc
  890.    Update MPEGA.gc 5 'Songinfo will be searched at playtime'
  891. ENDIF
  892.  
  893. xMenu Misc "Show status" "" ""
  894. IF $playing > 0
  895.    CLI 'List lformat %l $nowplaying > ENV:.MPEGAGUI.filesize'
  896.    Update MPEGA.gc 5 'Now playing: $nowplaying ($.MPEGAGUI.filesize\)'
  897.    Delete ENV:.MPEGAGUI.filesize
  898. ELSE
  899.    Update MPEGA.gc 5 'Idle'
  900. ENDIF
  901.  
  902. xMenu Misc "Run TAGEditor" "" ""
  903. GuiLoad $tageditor
  904.  
  905. ;================================================================================================
  906. ;================================================================================================
  907. ;================================================================================================
  908.  
  909. NEWFILE extra.gc
  910.  
  911. WINBIG -1 -1 380 50 'MPEGA Extra commandline options'
  912. WinType 11010000
  913.  
  914. xOnKey #27
  915. extra = $.MPEGAGUI.options
  916. Update MPEGA.gc 5 'Extra cmdline options not changed'
  917. GuiClose extra.gc
  918.  
  919. XTEXTIN 5 5 370 18 "" "extra" "" 800
  920. gadid 1
  921.  
  922. xButton 14 28 70 18 "_Save"
  923. .MPEGAGUI.options = $extra
  924. Copy ENV:.MPEGAGUI.options $opfile
  925. Update MPEGA.gc 5 'Extra cmdline options saved: $extra'
  926. GuiClose extra.gc
  927.  
  928. xButton 106 28 70 18 "_Use"
  929. Update MPEGA.gc 5 'Extra cmdline options set: $extra'
  930. GuiClose extra.gc
  931.  
  932. xButton 198 28 70 18 "_Restore"
  933. extra = $.MPEGAGUI.options
  934. Update extra.gc 1 $extra
  935.  
  936. xButton 291 28 70 18 "_Cancel"
  937. extra = $.MPEGAGUI.options
  938. Update MPEGA.gc 5 'Extra cmdline options not changed'
  939. GuiClose extra.gc
  940.  
  941. xMenu Project Save "" ""
  942. .MPEGAGUI.options = $extra
  943. Copy ENV:.MPEGAGUI.options $opfile
  944. Update MPEGA.gc 5 'Extra cmdline options saved: $extra'
  945. GuiClose extra.gc
  946.  
  947. xMenu Project Use "" ""
  948. Update MPEGA.gc 5 'Extra cmdline options set: $extra'
  949. GuiClose extra.gc
  950.  
  951. xMenu Project Restore "" ""
  952. extra = $.MPEGAGUI.options
  953. Update extra.gc 1 $extra
  954.  
  955. xMenu Project Cancel "" ""
  956. extra = $.MPEGAGUI.options
  957. Update MPEGA.gc 5 'Extra cmdline options not changed'
  958. GuiClose extra.gc
  959.  
  960. ;================================================================================================
  961. ;================================================================================================
  962. ;================================================================================================
  963.  
  964. NEWFILE Info.gc
  965.  
  966. WINBIG 0 11 244 84 'MPEGA GUI Info'
  967. WinType 11010000
  968. WinSmall -1 -1 158 84
  969.  
  970. xOnClose
  971. Update MPEGA.gc 5 'No info will be searched'
  972. inf = 0
  973.  
  974. xOnKey #27
  975. Update MPEGA.gc 5 'No info will be searched'
  976. inf = 0
  977. GuiClose Info.gc
  978.  
  979. xAppWindow TempFilename
  980. CLI '$getinfo $TempFilename LFORMAT "%f\\n\\-\\nTitle:   %t\\nArtist:  %a\\nAlbum:   %u\\nGenre:   %g\\nYear:    %y\\nComment: %c\\nBPS:     %b\\nLength:  %d (%e seconds)" >ENV:.MPEGAGUI.inf'
  981. LVUse Info.gc 1
  982. LVChange ENV:.MPEGAGUI.inf
  983. LVGo last
  984. LVDel -1
  985.  
  986. XListView 0 0 -1 86 "" LVInfo ENV:.MPEGAGUI.inf 0 TXT
  987. gadid 1
  988.  
  989.  
  990. ;--- Menu's ---
  991.  
  992. xMenu Project "Get info current" "" ""
  993. CLI '$getinfo $nowplaying LFORMAT "%f\\n\\-\\nTitle:   %t\\nArtist:  %a\\nAlbum:   %u\\nGenre:   %g\\nYear:    %y\\nComment: %c\\nBPS:     %b\\nLength:  %d (%e seconds)" >ENV:.MPEGAGUI.inf'
  994. LVUse Info.gc 1
  995. LVChange ENV:.MPEGAGUI.inf
  996. LVGo last
  997. LVDel -1
  998.  
  999. xMenu Project "Get info next" "" ""
  1000. LVUse Playlist.gc 1
  1001. IF $files > 1
  1002.    IF $repeat = "Off"
  1003.       IF $$lv.rec = $nowplaying        ;geen andere manually chosen
  1004.          top == $files - 1
  1005.          IF $$lv.line != $top        ;niet? -> next
  1006.             LVGo next
  1007.             nextinfo = $$lv.rec
  1008.             LVGo prev
  1009.          ELSE
  1010.             LVGo first
  1011.             nextinfo = $$lv.rec
  1012.             LVGo last
  1013.          ENDIF
  1014.       ELSE
  1015.          nextinfo = $Filename
  1016.       ENDIF
  1017.    ENDIF
  1018. ELSE
  1019.    IF $repeat = "On"
  1020.       nextinfo = $nowplaying
  1021.    ELSE
  1022.       Stop
  1023.    ENDIF
  1024. ENDIF
  1025. CLI '$getinfo $nextinfo LFORMAT "%f\\n\\-\\nTitle:   %t\\nArtist:  %a\\nAlbum:   %u\\nGenre:   %g\\nYear:    %y\\nComment: %c\\nBPS:     %b\\nLength:  %d (%e seconds)" >ENV:.MPEGAGUI.inf'
  1026. LVUse Info.gc 1
  1027. LVChange ENV:.MPEGAGUI.inf
  1028. LVGo last
  1029. LVDel -1
  1030.  
  1031. xMenu Project BARLABEL "" ""
  1032.  
  1033. xMenu Project "Run TAGEditor" "" ""
  1034. GuiLoad $tageditor
  1035.